home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Cream of the Crop 25
/
Cream of the Crop 25.iso
/
bbs
/
pcsuni1.zip
/
VRS502.ZIP
/
VRS-M6.PPE
(
.txt
)
< prev
next >
Wrap
PCBoard Programming Language Executable
|
1997-04-06
|
5KB
|
240 lines
;------------------------------------------------------------------------------
; .ss.
; `²²'
; .,sS$Ss,,s$ .,sS$$$Ss. .,sS$Ss,,s$ .ss. .sSs.
; .d$$²^°²$$$$'.d$P²°^^²$P'.d$$²^°²$$$$'.$$$' .$$$²Sb,.
; $$$' .$$$' $$$²Sçsµ²' .$$$' .$$$'.$$$' .$$$' `$$b.
; $$$b,,d$$$' ,$$$b,....,s$$$$b,,d$$$'.$$$;.,$$$' ;$$$
; `²S$$S²²S$$S²°²S$$$$S²°°²S$$$$$$',$$S²°²S$S'.sS$$$P²'
; .sS²°$$$²²°"' d²°'
; .$$² .$$'
; $$$.,d$$'
; `²S$$S²'
;------------------------------------------------------------------------------
; P.P.L.X. 2.OO (C)1996 - Lone Runner / AEGiS CoRP'96
;------------------------------------------------------------------------------
; PPE 3.2O (Encryption type I) - Analysis ON - Postprocessing ON
;------------------------------------------------------------------------------
Integer INTEGER001
Integer INTEGER002
Integer INTEGER003
Integer INTEGER004
String STRING001
String STRING002
String STRING003
String STRING004
String STRING005
String STRING006
;------------------------------------------------------------------------------
Goto LABEL001
End
If (0 == 0) STRING001 = "NO"
If (0 == 1) STRING001 = "YES"
EndFunc
:LABEL001
STRING002 = String(PcbNode())
If (PcbNode() == 0) STRING002 = "A"
STRING003 = GetEnv(STRING002 + "RECNO")
STRING003 = ToInteger(STRING003)
DOpen 0, PPEPath() + "USER.DBF", 0
DGo 0, STRING003
STRING006 = Mixed(Trim(DGet(0, "HANDLE"), " "))
DTop 0
:LABEL002
DSkip 0, 1
If (DEof(0)) Goto LABEL005
If (DRecNo(0) == STRING003) Goto LABEL002
If (DGet(0, "VITALITY") == "N") Goto LABEL002
If (DGet(0, "VITALITY") == "B") Goto LABEL002
If (DGet(0, "VITALITY") == "S") Goto LABEL002
If (DGet(0, "VITALITY") == "I") Goto LABEL002
If (DGet(0, "CASH") < 1) Goto LABEL002
If (DGet(0, "ONLINE") == "Y") Goto LABEL002
STRING004 = Mixed(Trim(DGet(0, "HANDLE"), " "))
INTEGER001 = DRecNo(0)
DGet 0, "CASH", INTEGER002
DGet 0, "EXP", INTEGER004
DGo 0, INTEGER001
Cls
Newlines 3
PrintLn "@X0E You come across a body lying in the passageway. It seems to be still@X07"
PrintLn "@X0E breathing, and looks rather relaxed lying there. on closer Inspection,@X07"
PrintLn "@X0E you realize that it's @X0B", STRING004, "@X0E.@X07"
Newline
PrintLn "@X0E Either he couldn't afford to get a coffin to sleep in, or he took@X07"
PrintLn "@X0E some spacy drugs from a bad MediKit.@X07"
Newline
InputStr "@X0E(@X0BA@X0E)ttack or ENTER to Ignore > ", STRING005, 10, 1, "A", 0 + 8
If (STRING005 == "") Goto LABEL005
Cls
Newlines 3
PrintLn "@X0EYou stealthily creep up on @X0B", STRING004, "@X0E your eyes focused on his left ear,@X07"
PrintLn "@X0Ethinking over the grab and twist that will result in instant death...@X07"
INTEGER003 = Random(10)
If (INTEGER003 > 0) Then
PrintLn "@X0EKind of cowardly, cutting down sleeping people, don't you think?"
Call PPEPath() + "VRS-M19.PPE"
Goto LABEL003
ElseIf (INTEGER003 == 0) Then
PrintLn "@X0E You paid so much attention to your intended strike that you never even@X07"
PrintLn "@X0E noticed that @X0B", STRING004, "@X0E was holding a fletcher trained on your left eye, did you?@X07"
PrintLn "@X0E Perhaps with a bit more experience you'll learn to ALWAYS keep an eye on@X07"
PrintLn "@X0E your surroundings.... Being the nice guy that @X0B", STRING004, "@X0E is, he@X07"
PrintLn "@X0E brought enough of a cell sample back for the medics to reconstitute you - @X07"
PrintLn "@X0E after, of course, stripping you of your weapons and cash...@X07"
Newline
PrintLn "@X0E Better luck tomorrow....@X07"
Newline
Call PPEPath() + "VRS-M19.PPE"
Goto LABEL004
Endif
:LABEL003
DGo 0, INTEGER001
DGet 0, "CASH", INTEGER002
DPut 0, "CASH", 0
DPut 0, "WEAPN1", 0
DPut 0, "WEAPN2", 0
DPut 0, "S_W_NUMBER", 0
DPut 0, "WEAPT1", "NONE"
DPut 0, "WEAPT2", "NONE"
DPut 0, "S_W_NAME", "NONE"
DPut 0, "WEAPA1", 0
DPut 0, "WEAPA2", 0
DPut 0, "S_W_AMMO", 0
DPut 0, "WEAPD1", 0
DPut 0, "WEAPD2", 0
DPut 0, "S_W_DAMAGE", 0
DPut 0, "ARMOR_D", 0
DPut 0, "ARMOR_N", "NONE"
DPut 0, "VITALITY", "N"
DGo 0, STRING003
DPut 0, "CASH", DGet(0, "CASH") + INTEGER002
PrintLn "You picked up ", INTEGER002, " credits!"
INTEGER004 = INTEGER004 / 10
PrintLn "You picked up ", INTEGER004, " experience points!"
DPut 0, "EXP", DGet(0, "EXP") + INTEGER004
Call PPEPath() + "VRS-M19.PPE"
DGo 0, INTEGER001
FAppend 1, PPEPath() + String(DGet(0, "FILE_NUM")) + ".MSG", 2, 0
FPutLn 1, "@X0FYou were killed by ", STRING006, ", better luck next time!"
FPutLn 1, "@X01≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡@X0F"
FClose 1
FAppend 1, PPEPath() + "DAILY.NWS", 2, 0
FPutLn 1, "@X0F", STRING004, " was killed by ", STRING006, " today, Don't be next!"
FPutLn 1, "@X01≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡@X0F"
FClose 1
Goto LABEL005
:LABEL004
DGo 0, STRING003
DGet 0, "CASH", INTEGER002
DGet 0, "EXP", INTEGER004
DPut 0, "CASH", 0
DPut 0, "WEAPN1", 0
DPut 0, "WEAPN2", 0
DPut 0, "S_W_NUMBER", 0
DPut 0, "WEAPT1", "NONE"
DPut 0, "WEAPT2", "NONE"
DPut 0, "S_W_NAME", "NONE"
DPut 0, "WEAPA1", 0
DPut 0, "WEAPA2", 0
DPut 0, "S_W_AMMO", 0
DPut 0, "WEAPD1", 0
DPut 0, "WEAPD2", 0
DPut 0, "S_W_DAMAGE", 0
DPut 0, "ARMOR_D", 0
DPut 0, "ARMOR_N", "NONE"
DPut 0, "VITALITY", "N"
DGo 0, INTEGER001
DPut 0, "CASH", DGet(0, "CASH") + INTEGER002
DPut 0, "EXP", DGet(0, "EXP") + INTEGER004
DGo 0, INTEGER001
FAppend 1, PPEPath() + String(DGet(0, "FILE_NUM")) + ".MSG", 2, 0
FPutLn 1, "@X0FYou killed ", STRING006, ", in self defense! You also made ", INTEGER002, " credits!"
FPutLn 1, "@X01≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡@X0F"
FClose 1
FAppend 1, PPEPath() + "DAILY.NWS", 2, 0
FPutLn 1, "@X0F", STRING006, " was killed attacking ", STRING004, ". How embarrassing!"
FPutLn 1, "@X01≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡@X0F"
FClose 1
:LABEL005
DCloseAll
FCloseAll
End
;------------------------------------------------------------------------------
;
; Usage report (before postprocessing)
;
; ■ Statements used :
;
; 2 End
; 2 Cls
; 18 Goto
; 11 Let
; 17 PrintLn
; 14 If
; 4 FAppend
; 4 FClose
; 8 FPutLn
; 1 InputStr
; 4 Newline
; 2 Newlines
; 3 Call
; 1 FCloseAll
; 1 EndFunc
; 1 DOpen
; 1 DCloseAll
; 1 DTop
; 8 DGo
; 1 DSkip
; 5 DGet
; 36 DPut
;
;
; ■ Functions used :
;
; 1 /
; 16 +
; 11 ==
; 1 <
; 1 >
; 2 !
; 2 Trim()
; 1 Random()
; 3 String()
; 8 PPEPath()
; 2 PcbNode()
; 1 GetEnv()
; 1 ToInteger()
; 2 Mixed()
; 1 DEof()
; 2 DRecNo()
; 14 DGet()
;
;------------------------------------------------------------------------------
;
; Analysis flags : C
;
; C - Call child PPE ■ 3
; This is usually normal, but may be a tricky way to launch some
; sysop-only commands.
; ■ Search for : CALL
;
;------------------------------------------------------------------------------
;
; Postprocessing report
;
; 0 For/Next
; 0 While/EndWhile
; 2 If/Then or If/Then/Else
; 0 Select Case
;
;------------------------------------------------------------------------------
; AEGiS Corp - Break the routines, code against the machines!
;------------------------------------------------------------------------------